home *** CD-ROM | disk | FTP | other *** search
/ Family Fun / Family Fun.iso / joke1 / jokes_c / crconv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-07  |  340 b   |  19 lines
  1. {$M 16384,0,16384}
  2. uses dos;
  3. var
  4.  sr: searchrec;
  5.  s: string;
  6.  f: text;
  7.  outfile: text;
  8. begin;
  9.  assign(outfile,'FILTER.BAT');
  10.  rewrite(outfile);
  11.  findfirst('*.*',0,sr);
  12.  while doserror=0 do begin;
  13.   writeln(sr.name);
  14.   writeln(outfile,'TYPE '+sr.name+' | FILT.EXE > '+sr.name);
  15.   findnext(sr);
  16.  end;
  17.  close(outfile);
  18. end.
  19.